home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n20.arc / MK4_UD2.XTS < prev    next >
Text File  |  1990-10-29  |  4KB  |  114 lines
  1. /*
  2.     MK4_UD2.XTS
  3.         PC MagNet Utilities Database
  4.         prompt driven down load script
  5.         by Rick Ayre, 6.8.90
  6. */
  7.  
  8. i = 0                                   -- Declare variables
  9. string choice, dload, dFile[30], more   -- and values where needed
  10.  
  11. if online then reply "Script can only be run while you are off-line!" : end
  12.                  -- This if clause ends the script if it is invoked while on line
  13. label get_name   -- Routine to prompt for file names
  14.    repeat        -- using a repeat until done loop
  15.       i = i + 1  -- and showing off Xtalk's window and form functions
  16.       w = freewin
  17.       window w, at 9,11 size 4,58 color bright white on yellow
  18.       defwindow = w
  19.       Title " File down load from PC MagNet Utilities Database "
  20.       form start
  21.          print
  22.          print " Filename from MagNet: ";
  23.          r = ypos
  24.          c = xpos
  25.          field dload at r,c width 12 allUC, reset
  26.       form accept
  27.          if null(dload) then gosub what_now    -- If clause to handle "ESC" and "ENTER" and like that
  28.          if exists (dload) then {              -- Check to see if file exits already
  29.             clear
  30.             print "This file already exists:",dload
  31.             print "Get others? (Y/N)"     -- If it does
  32.             input choice                  -- inquire as to how to proceed
  33.             if choice = "n" then end      -- if user answers NO, end script
  34.             i = i - 1                     -- otherwise dump file
  35.             clear                         -- clear window
  36.             goto get_name                 -- and start again
  37.          }
  38.          form start
  39.          print
  40.          print " Download another (Y/N): ";
  41.          r = ypos
  42.          c = xpos
  43.          field more at r,c width 1 allUC, reset
  44.       form accept
  45.  
  46.       dfile[i] = dload          -- Load file names into file array
  47.       until more = "N"
  48.  
  49. label call_magnet   -- Routine to dial and log on
  50.    if null(dload) then end      --end script if no files are named
  51.    load "CSERVE"    -- Either name your dialing entry CSERVE or enter yours here
  52.    protocol "CSERVEB"
  53.    call "CSERVE"    -- <== Same here
  54.    wait 20 ticks,
  55.    reply
  56.    wait for "Host Name:",
  57.    reply "CIS"
  58.    wait for "User ID:",
  59.    reply "#####,###"      -- Your UserID replaces "#"s
  60.    wait for "Password:",
  61.    display off
  62.    reply "*****.*******"  -- Your Password replaces "*"s
  63.    wait 5 seconds for space chr(13),
  64.    display on
  65.  
  66. repeat              -- Loop to load file string from file array
  67.    my_file = dFile[i]
  68.    gosub get_file   -- Jump to routine that down loads files
  69.    i = i - 1        -- Decrement file array counter
  70. until i = 0         -- Until array is empty
  71.  
  72. wait quiet 5 seconds : reply "OFF"    -- Quit MagNet
  73. wait for "Host Name:" : BYE : end     -- Hang up phone and end script
  74.  
  75. label get_file     -- Routine to down load files
  76.    wait quiet 5 seconds,
  77.    reply "go pcm:utilit"
  78.    wait for "!",
  79.    reply "4"
  80.    wait for "e (example, DR.COM):",
  81.    reply my_file
  82.    watch for                            -- This watch for traps responses when
  83.       "ad this file? (Y/N)" : reply "y" -- file name is mispelled or ambiguous
  84.        "!" : goto no_file               -- and jumps to a routine to recover
  85.    endwatch
  86.    wait for "> to begin transfer!",
  87.    wait quiet 5 ticks,
  88.    Reply
  89.    wait for "!",
  90.    reply "5"
  91. /* --If you are running Mk.4 v1.X you must uncomment the "if filter" line
  92.    if filter = 'CONTROL' then fmap = fmap | 65568
  93. */ --To uncomment the above line simple delete the "/*" and the "*/"
  94.    wait quiet 5 seconds,
  95.    return
  96.  
  97. label no_file        -- Routine to recover from on line errors
  98.    clear
  99.    print "File not found!"
  100.    print "Continue with others? (Y/N)"
  101.    input choice
  102.    if choice = "n" then end
  103.    shut
  104.    return
  105.  
  106. label what_now      -- Routine to recover from off line errors
  107.    clear
  108.    print "Do you want to Quit (Y/N):";
  109.    input choice
  110.    if choice = "y" then end
  111.    clear
  112.    i = i - 1
  113.    return
  114.